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ABSTRACT 


The design and implementation of the FORTRAN/8 compiler for 
the PDP-8 computer is described. This compiler was written using the 
XPL Compiler Generator System and runs on an IBM System 360. 
FORTRAN/8 accepts FORTRAN as the source language and generates 


code acceptable for execution on a PDP-8 computer. 
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Lo INERODUC TION 


FORTRAN/8 is a FORTRAN compiler which generates code accept- 
able for execution on a PDP-8 sematiicitn The compiler was written 
using the XPL Compiler Generator System [Ref. 1], and was implemented 


on an IBM System 360. 


A. SAME Ni On wiih PROBLE 

A PDP-8 system consisting of a PDP-8/S computer, teletype, 
and PI-1250-1 data handling system has been assigned to the Oceano- 
graphic Department at the Naval Postgraduate School. This system is 
portable and frequently removed from this facility for use on oceano- 
graphic assignments. Consequently, users are denied the possibility 
of continual testing of FORTRAN programs. 

The FORTRAN/8 compiler was designed to provide users with the 
possibility of testing FORTRAN programs when the PDP-8 system was 


not available. 


lone PDP-8 series is referred to as PROGRAMMED DATA 


PROCESGORS and are manufactured by DIGITAL EQUIPMENT CORPORATION: 
Maynard, Massachusetts. 








Be TERMINOLOGY 
Throughout the discussion which follows, a general familiarity 
with basic computer terminology is assumed. The following notions 
are essential for comprehension of the remainder of the paper. 
ie Compiler 
A compiler is a computer program which translates source 
programs written in some higher-level language (e.g., FORTRAN, or 
ALGOL) into machine language. The generated machine language is 
referred to as the object module. 
Ze Backus-Naur Form 
Backus-Naur Form (BNF) “ is a method of formally specifying 
a context-free phrase-structure grammar. It is presented in detail in 
the "Revised Report on the Algorithmic Language ALGOL 60," [Ref. 2]. 
In BNF, the brackets " < “ and" >" enclose defined 
terms, but are omitted for basic elements of the language being 


described. Symbols ":: =" and " |," which mean 


‘is defined as" and 


or,' are used in the definitions of terms. 
As an example, the definition 
<identifier> ::= <letter> <letter> <digit> 


states that an <identifier> is defined as a <letter> ora <letter> 


followed by a <digit> . Thus, if <letter> and <digit? are further 


eohe Backus-Naur Form is also known as Backus-Normal Form. 








defined as 
<letter> +] A eee y|Z and 
<qdigit> We —20 | ener so ciccmen iene g | 9 

then an <identifier? can consist of a sequence of letters and digits, 
as long as the first character is a letter. 

BNF is used in the formal definition of the syntax of 
FORTRAN/8 (see Appendix A). 

cm Hash Coding 

Hash coding [Ref. 3], also known as scatter storage, isa 
term used to describe a technique for the storage and retrieval of data 
within a table. This method uses some feature of the data to be stored 
in order to calculate a table entry address. If a succeeding calculation 
selects a cell which is already in use, then a collision is said to exist. 

When a collision occurs, one of several methods can be 
used to store the latest data. One of these methods is to search the 
table for the next vacant table element. The data is entered into the 
vacant cell and a pointer is set so that the data can be accessed at 
some future point. 

Hash coding techniques normally decrease the access times 
for retrieval of data considerably when the data is accessed by content. 

4. XPL Compiler Generator System 

The FORTRAN/8 compiler was poneuered using the XPL 

Compiler Generator System (CGS) [Ref. 1]. This system is fundamentally 


composed of two programs: ANALYZER and SKELETON. 


10 





XPL, a block-structured language used by the XPL ClGS, 
is a dialect of PL/I. Designed specifically for compiler writing, XIL 
is easy to learn and contains the necessary constructs for table manipu- 
lation required by compilers. 

ANALYZER is a program which accepts the BNF specification 
of a grammar, determines the acceptability of that grammar, and produces 
a set of parsing decision tables. The acceptability is based on the 
Mixed-Strategy Precedence (MSP) parsing algorithm used by SKELETON. 

The MSP parser is based on simple precedence analysis 
(Ref. 9], with additional tables to make parsing decisions when more 
context is required. 

SKELETON is a program which, with the addition of the 
ee produced tables, will act as a syntax checker and a basis 
for constructing a compiler. The essential procedures of SKELETON are 
Bown in Figure 1. The complete program is listed in (Ret. 1]. 

The main body of SKELETON consists of a call to MAIN __ 
PROCEDURE. This call starts the compilation process by calling 
INITIALIZE to set the global constants. Control of the parsing process 
is then passed to COMPILATION_LOOP. 

Each call from COMPILATION_ LOOP to SYNTHESIZE 
corresponds to an application of a BNF production in the source 
language. The particular elements for a production are located by 
SCAN and passed to STACKING. STACKING, a parsing decision function, 


places the elements ina stack until sufficient elements are available 


Jl 








to cause a stack reduction. If sufficient elements are a. 

a reduction then REDUCE will search the list of BNF procuctions 
seeking a match. PR_OK will be invoked to verify the selected 
production. 

SYNTHESIZE is responsible for associating meaning with the 
productions of the BNF grammar. It has one parameter which corresponds 
to the BNF production number. This argument will be applied in the 
pending reduction. 

In SKELETON, SYNTHESIZE consists of a case statement 
on the production number. The completed SYNTHESIZE in FORTRAN/8 
will consist of a giant case statement where each case will correspond 
to arule in the grammar. It is within this procedure that the majority 


of the object code will be emitted. 
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lL RD P= 6 AR DIVARE 


The PDP-8 was designed for use aS a small-scale general 
purpose computer using twelve bit binary words and two's complement 
arithmetic. Each of the four basic components of this computer will be 
moscussed in this section. These components are: (1) arithmetic unit 
(2) control unit; (3) memory unit; and (4) input/output units. A complete 
description of the PDP-8 computer is available from Digital Equipment 


Corporation [Refs. 7 and 8]. 


A. ARITHMETIC UNIT 

The arithmetic unit accepts data from input devices and transmits 
Pracessed data to output devices. This unit functions under the direction 
of the control unit and consists of an accumulator (AC) anda link. The 
accumulator is twelve bits in length and corresponds to the PDP-8 word 
size. Bits within the accumulator are numbered 0-11 starting at the 
left. The link bit, logically a part of the accumulator, is complemented 
whenever binary operations cause a carry from the accumulator. 

Octal numbers within the range -3777, to 3777, (or -2047,. to 


8 8 10 


204 710) can be represented in the accumulator. The zeroth bit 


Mettmost) is reserved for the sign bit and the presence of a 1” in this 
position indicates a negative number. 
Inclusion of the Floating Point Package [Ref. 4] allows interpre- 


tor 
tation, execution, and input/output of numbers ranging from -10— 


14 








™ 


iors 
EOu LO = . This package requires the use of a three word accun ulator 
to represent the number. This accumulator, which is called the floating 
point accumulator (FAC), is located on page zero in addresses 44. to 


8 


46... The first word contains the exponent with its sign in the zeroth bit. 


The mantissa is stored in the following two words with the sign of 
the number in the zeroth bit of the word following the exponent. Numbers 
requiring three words for storage are defined as "real" within the 


FORTRAN/8 compiler. 


Be CONTROL UNIT 

The control unit specifies program flow and is divided into three 
areas: (1) the program counter; (2) the instruction register; and (3) the 
major state generator. 

The program counter uses a twelve bit register to determine 
program sequence and indicates the next address from which an in- 
struction will be taken for execution. Unless a branching operation 
occurs, the program counter is incremented by one each time an 
instruction is entered into the instruction register. 

The instruction register uses a three bit register to hold the 
Operation code of the current instruction. The three bits correspond 
to bits 0-2 in the address indicated by the program counter. 

The major state generator interprets the instruction being 
executed and sequentially enters one or more of the following states. 


During the fetch state, an instruction is loaded into the memory buffer 


eS 








register from core memory at the address indicated by th: 

counter. The presence ofa "1" in bit three of the instruction indicares 
indirect addressing is required and the defer state is entered. The 
major state generator then executes the instruction after entering the 


execute state. Each state requires 1.5 microseconds for execution. 


Cc. MEMORY UNIT 

The memory unit consists of a twelve bit memory address register, 
a twelve bit memory buffer register and a 4096 word magnetic core 
MEMOLY o 

The memory address register contains the address of the in- 
struction currently selected for reading or writing. It can also be used 
to specify the next instruction to be executed. This register is set by 
either the memory buffer register or the program counter. 

The memory buffer register provides a temporary storage location 
for all words stored into or retrieved from the core memory. In addition, 
this register is used to update the program counter, set the memory 
address register and buffer words loaded into the accumulator. 

The magnetic core memory is random access. The 4096 words are 


arranged sequentially with addresses 00-3777. and divided into thirty-two 


8 


pages numbered 0-177 Addresses on page zero and those on the same 


3° 
page as the current instruction can be referenced directly. Addressing 


between all other pages must be done indirectly. 
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Dots INPUT/ OUTPUT Uiiins 

Input and output devices are combined since many devices s 
both functions. The primary input/output device is the teletype with 
integral paper tape reader/punch. This device accepts and transmits 
characters in ASCII code which differs from the representation within 
the computer. Consequently, the computer must convert the characters 
when data transfers are effected. 

The secondary input/output device is the PI-1250-1 data handling 
system. This is a seven track magnetic tape system designed to 
Operate with the PDP-8 family of computers. 

All input and output associated with the PDP-8 computer requires 
the use of the accumulator. Direct access to the core memory by a 
Bepheral is not possible. In addition, since there is a great difference 
in the processing speed of the computer and the speed of most peripheral 
devices, the computer must be programmed to check the readiness of a 


device prior to attempting the transfer of data. 


Ly 





III. A DESCRIPTION OF THE FORTRAN/8 COMPILEA 


Construction of the FORTRAN/8 compiler was completed in two 
stages. The first stage consisted of expressing the FORTRAN/8 grammar 
in BNF in a form acceptable to the ANALYZER, while the second required 
major modifications and additions to SKELETON. 

The BNF productions for FORTRAN/8 are listed in Appendix A. In 
general the grammar rules follow those listed in [Ref. 5]. The major 
exception is in the read/write formats. Due to format complexity and 
core requirements, the standard FORTRAN read/write formats were 
abandoned in favor of the simpler but comprehensive formats proposed 
by Kildall in [Ref. 6]. A listing of FORTRAN constructs allowed by 
FORTRAN /8 is contained in Appendix B. 

Basic design considerations for the second stage were the fast 
storage/retrieval of data in the FORTRAN/8 compiler and efficient 
storage utilization in the PDP-8 computer. 

Storage utilization became extremely important due to a design 
requirement that the object module contain the Floating Point Package. 
This request, coupled with the requirement for supplementary PDP-8 
machine language ST nDLO arnt Cen reduced the core available by thirty 
percent. This meant that the program storage within the PDP-8 was 


limited to 2845 twelve bit words. 


ecenonone of the PDP-8 machine language subprograms are 
contained in section IV. 
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The objective for the remainder of this section is t. 
description of the tables and procedures used by the FORTRAN, é 
compiler and to provide some details as to how the design goals were 


achieved. 


Bs TABLE DESCRIPTIONS 

Various tables are referenced for storage and retrieval of data 
throughout the compiler. This section describes the construction and 
purposes of the major tables. 

ies The Program Reference Table 

The program reference table (PRT) contains attributes of 
variables defined in the program block (subprogram or main program) 
currently being compiled. This table is divided into three segments: 
0-126 hash field 

127-146 common variable cells 

147-353 program variable cells 
An explanation of information stored within common and program variable 
cells is given in Figure 2. 

The PRT uses hash coding for the storage and retrieval of variables. 
Entry to this table is based on the ABS Ol characterseni the 
variable name plus the EBCDIC value of the first three characters. The 
remainder after division by 127 produces the hash code entry to the hash 
field. 


If the location addressed by the hash code entry contains a zero 


then a pointer to the next available program variable cell (indicated by 


Kg 








559) ay 


1%] 


Ite 


efi 


THE PROGRAM REFERENCE TABLE 


Program Variable Storage | 


Common Variable Storage 


COLLISION | CORE SYMBOL 
(27! typE| PARM | ADDRESS LOCATION POINTER 
126 


FIELD NAME 


Type 


Parm 


Collision 


ore LOcation 


Symbol 


Hash 
Field 
Sis iE OORT LION 
2 QO = integer variable 
1 = real variable 
2 => integer array 
3 = real array 
l if 1 then the variable is a 
parameter to the subprogram 
currently being compiled 
9 a pointer to the variable wnrich 
collided with the variable 
occupying this cell 
iZ core address of variable 
8 pointer to the character representation 


of the variable in this cell. 


FIGURE z 
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pointer PT) is entered in the hash field. Variable attribis 
entered in the program variable cell. The variable name 1s stored in 
the SYMBOL table (an XPL character array). 

Collisions are resolved by placing variable attributes in the next 
available program variable cell. In this case, however, the pointer 
to the program variable cell is entered in the collision field of the 
previously entered variable. 

A variable is relocated to the next available common variable 
cell (indicated by pointer SC) when the variable name is encountered 
ina COMMON statement. A maximum of twenty variables may be entered 
into COMMON. 

Program variable cells are local to a program block. Consequently, 
the hash field entries pointing to program variable cells are reset to 
zero when an END statement is read from the FORTRAN source deck. 

2.  PTABLE 

The PTABLE contains attributes for the subprograms read 
from the FORTRAN source deck. Each cell within the table corresponds 
to one subprogram and has five fields as shown in Figure 3. 

The information content of the Type, Found and Parm fields 
is used by SYNTHESIZE for error analysis purposes, along with decisions 
concerning the emission of code. 

The Reference field refers to an address on page zero of the 
PDP-8 core. This address Ponte the ees of the beginning (entry) 


of the subprogram. 


Za 








ig 


mel PE 


0 


FIELD NAME 


Type 


Found 


Parm 


Reference 


Storage 


FOUND |} PARM 


Not Used 


eZ 


Iz 


PTABLE 


REFERENCE STORAGE 


DioChr itl 


0 = unknown 
function subprogram 
2 = subroutine subprogram 


—_— 
H 


If this field contains a "1" then 
the subprogram was included 
within the source deck at 
execution time 


number of arguments for the 
subprogram 


program variables are passed to 
the subprogram via locations 
starting with this address at 
the top of page zero 


program variables are passed to the 
subprogram via locations starting with 
this address at the top of page zero 


PTE NONE S: 





Arguments for the subprogram are passed th. 
on page zero. The Storage field contains one of these acurésscs. 
particular address contained in this field is for passing the first 
argument in the argument list. Succeeding arguments are passed 
through sequentially lower numbered cells. 

The FORTRAN/8 compiler allows a maximum of eleven 
FORTRAN subprograms. This restriction is due to the limited space 
On page zero. 

Oe The LAB Table 

The LAB array, shown in Figure 4, contains information con- 
cerning labels encountered in the FORTRAN source deck. The table is 
divided into the following two sections: 

0-126 contains the label for a statement and is entered via 
hash coding 
27-2519 each cell within this range of the LAB array corres- 
ponds to one of the cells between 0 and 126 and 
contains two pointers. The left 16 bits point to the 
beginning of the labeled statement while the right 16 
bits point to the end of the same statement. 

The beginning address is used for such FORTRAN source 
statements as the GO TO statement. The FORTRAN DO statement requires 
that both the beginning and the end of a labeled statement be known. 
The beginning is used for the extent of the loop while the end position 


is used for branching after completion of the required iterations. 
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THE LAB TABLE 


ee ee = + epee ms - nee ev ne er _——<—<— 


259 


a an 


127| BEGINNING 


ees 





END 


126 


HASH 
ENTRIES 


Wee | LABEL 
0 NOT USED 


Figure 4 


4. The FIXV and FIXM Tables 
FIXV is one of several stacks used by the parsing 

algorithm to store information. As originally intended in SKELETON, 
FIXV holds a thirty-two bit binary representation of an integer recognized 
as a terminal symbol by the scanner. If the particular element within 
the BNF production is not a number then the FORTRAN/8 compiler con- 
siders FIXV to be not in use. In this case that position in FIXV is used 
to hold PRT and PTABLE locations, the number of dimensions for an array 
or parameters to a subprogram, and a code type for the referenced 


variable as shown in Figure 5A. 





THE FIXV AND FIXM STACKS 


Dimension 
PRI Or PLIABLE Location Type Counter 


24 bits 4 bits 4 bits 
Type Code 0 SShunetion sub pregram 
1 Subroutine Subprogram 
2 Integer Array 
3 Real Array 
Pee Cet ae 


THE FIXV AND FIXM STACKS 


PIXV 


12 oars 


FIXM 


24 bits 


eee ess 


Ae 








If an element within a BNF production requi: 

FIXV for number storage then both FIXV and FIXM may receive a porti 
of the number. The portion each receives is determined by the procedure 
SCAN. If SCAN does not find a decimal point in the number field then 
the number value is stored in FIXV as originally intended in SKELETON. 
However, a decimal point within the number field indicates a real 
number and three cells are required to store the value into the PDP-8 
core memory. In this case FIXV will contain the exponent while FIXM 
contains the mantissa as shown in Figure SB. 

Or The LOC Stack 

The LOC stack is a stack similar to FIXV, and parallels 
the PARSE STACK. This stack contains information concerning the core 
location for expressions, variables, and constants found as elements 
of a BNF production. The three fields of this stack are shown in 
Figure 6. 

The information content of the LOC stack is used primarily 
for determining indirect addressing requirements. Indirect addressing 
is denoted by the presence of a "1" in the address field, and occurs 
when the expression does not reside on page zero or on the same page 
as the instructions. The type field contains either a "0" ora "1" which 
designates that the referenced expression is of type integer or real 


respectively. 
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THE LOC STACK , 


CORE LOCATION i ADDRESS TYPE 
ZG b1ES 2 Bits Zouhs 
FIGURE 6 


THEeeO DE aay 


LABEL END 
16 bits 16 bits 
FIGURE 7 


THE VCELL ADDRESS TABLE 


CORE LOCATION PRT LOCATION 


16 bits 16 bits 


FIGURE 
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be The CONSTANTI/CONSTANT2 Table 

The combination of CONSTANT! and GC@NSTANTZ term a 
table for storage of both integer and real numbers which appear as 
constants in the FORTRAN source deck (e.g., on the right of an 
assignment statement). This is a hash coded table whose entries are 
based on the value of the number. With one exception the configurations 
of CONSTANT! and CONSTANT2 correspond to FIXV and FIXM respectively. 
This exception concerns CONSTANT1. In addition to the exponent stored 
in FIXV, CONSTANT1 also contains the PDP-8 core address of the 
referenced constant. 

The table is initially loaded with those pre-set constants 
found on page 0 of the PDP-8 memory map (see Appendix D). Additional 


entries to the table are effected when: 


a. the scanner reads a number from the FORTRAN source 
deck and 
Is the number has not been previously entered in the 


CONSTANT1/CONSTANTZ2 table. 

The FORTRAN/8 compiler uses the CONSTANT1/CONSTANT2 
table to ensure that the same constant will not be given additional 
storage when it is encountered a second time by SCAN. This is most 
important in the case of real numbers which require three PDP-8 memory 


cells to store but only one cell to reference. 
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Ls The CODE Array 
The CODE array contains. PDP=8 objeccwecdea ering 
compilation, this array also contains references to labels. The cells 
referring to labels are configured as shown in Figure 7. These cells 
receive the address of either the beginning or end of the labeled state- 
ment at the end of each program block. 


Se The VCELL ADDRESS Table 


The VCELL ADDRESS table performs a function similar to 
pre CONSTANT! /CONSTANT2 table. Each cell in this table (see 
Figure 6) contains the core location and an address on the current page 
through which that variable has already been accessed. It is through 
this table that the FORTRAN/8 compiler ensures that a maximum of one 


reference to a particular variable appears on each PDP-8 memory page. 


D:. FORTRAN/8 COMPILER ORGANIZATION 

The forty-eight procedures for FORTRAN/8 are organized into six 
mein Categories: (1) Input; (2) Error; (3) Scan; (4) Initialization; 
(5) Code Emission; and (6) the Syntactic Parsing Functions. Of the 
twenty procedures in SKELETON, fifteen were retained with little or no 
modification. Those procedures modified were: SCAN, INITIALIZATION, 
Pex OR, REDUCE, and SYNTHESIZE. 

The relations among the major procedures are listed in Figure 9. 
Appendix C contains an alphabetic listing of all procedures and the 


procedures from which they are called. 
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The syntactic parsing functions are discussed in cu 
ie ERnor 

The error section is composed of procedures I FORMAT, 
PeROR, READ OCTAL and LISTS@ARD. 

Procedure ERROR prints a mnemonic error message, counts 
total and severe errors, and terminates the compilation in the case of 
excessive errors. Procedure I FORMAT is concerned with the format of 
the error message. 

Procedure READ OCTAL converts the binary representation 
of the parameter to octal. This procedure is used primarily for printing 
the CODE array. 

Procedure LIST CARD holds the card image being processed. 
Unless an error occurs, the card image will be printed after the statement 
has been parsed. If an error occurs during the parsing operation, the 
card image is printed before the error message. 

ee Input Section 

The input section consists of a single procedure named 
GET CARD. This procedure reads the card images of the FORTRAN source 
deck. The latest card image is held in the character string BUFFER 
while the following card is in BUFFER]. This allows determination of 
continuation cards. GET CARD also adds the ";" required by SCAN to 


fletermine the end of 4a statement. 
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oe Scan 
scan is composed of two procedures: SCAN and COMFUTE. 
The only modification to SCAN as it appears in SKELETON was to provide 
the ability to scan floating point numbers. When the decimal point is 
found, the number values to the left and right of the decimal point are 
passed to COMPUTE. COMPUTE converts the fractional decimal repre- 
sentation of the scanned real number to exponential form for COMPILATION __ 
LOOP to insert into FIXV and FIXM. 
4. Initialization 
The initialization section consists of one procedure called 


INITIALIZATION. This procedure: 


a. sets the global constants; 
De inserts PDP-8 page zero entries into the code array; 
Ce inserts the PDP-8 machine language subprograms 


into the CODE array; and 
ar loads a jump indirect instruction into core location 


200,. 


The jump instruction allows the user to place FORTRAN subprograms 


before the main program and ensures that execution of the PDP-8 


program will always commence at address 200 Just prior to the return 


3° 
from INITIALIZATION, the PDP-8 memory map is configured as shown 


in Appendix D. 


SZ. 








Su Code Emissio 


Se eaieen e 


The code emission section consists of twenty-six pro- 
cedures whose relationships are shown in Figure 10. SYNTHESIZE" is 
the driving procedure in this section. The remaining procedures can be 
separated into the following six categories: (1) procedures concerning 
FORTRAN subprograms; (2) the subscripting of variables; (3) control of 
simple variables; (4) the referencing of labels; (5) the assignment of 
temporary cells; and (6) the procedures for code emission. 

a. Procedures Concerning FORTRAN Subprograms 

Contrary to most FORTRAN compilers, FORTRAN/8 
permits the placing of FORTRAN subprograms both before and after the 
main program. The starting address for each subprogram is listed on 
page zero (see Appendix D) and addressed indirectly. SET PROC obtains 
an address for indirectly addressing the procedure from GET _PCELL and 
places the initial values in PTABLE. Cells for passing parameters are 
taken from the top of page zero and the variable PARMCELL tallies the 


usage of these cells. FIND PROC locates a procedure already entered 


moieP TABLE. 


ir order to understand how SYNTHESIZE passes information from 
One reduction to another, the user must familiarize himself with the 
system of flags (shown in Figure 11) and the stacks described in [Ref. 1]. 
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SELAG 


DF LAG 


RF LAG 


SPLAG 


FLAGS USED IN FORTRAN/8 


CODE EMISSION SECTION 


if set (1) then real expressions are currently being 
processed and the Floating Point accumulator is in use 


if set (1) then the FORTRAN statement being compiled 
is a subroutine call. 


used for dimension, declaration and common statements 


Value Description 
0 INTEGER 
1 REAL 
2 DIMENSION 
S into main body of subprogram or 


main program 

4 DATA 

5 COMMON 
checks to ensure at least one RETURN statement is 
inside the FORTRAN subprogram body. If set (1) when 
reaching an END statement then no RETURN statement 
was included within the subprogram 
if set (1) then currently processing a FORTRAN 


Subprogram, else 0 


PIGURE e 
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ix The Subscripting of Variables 
Storage for subscripted variables is obtainea froin 
procedure GET _ACELL on the basis of the number of dimensions, whether 
the variable is declared real or integer, and the extent of each dimension 
for the variable. The number of cells assigned by GET ACELL for storage 
of the subscripted variable is determined by the following formula: 
if subscripted array is of type real 
ren, = 


otherwise T = l 


n = number of dimensions 
cr. = extent of the He dimension 
n 
: eells assigned =n +1 = Tom r) 
i=] 


Storage for these cells is obtained from page 26, Starting at address 


543 D9: Succeeding cells are taken from sequentially lower numbered 


core addresses. Figure 12 shows an example of storage for both an 


integer array(I) and a real array (R). 


The address of a particular element of a subscripted 


variable is computed using the following formula: 
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n = number of dimensions 


och 
Size Of the de® lcumencien 


es = 
i 
if i=n then 1 (3 fo real array) 
D. = 
} otherwise Uy Dia 
files , 
r. =extent of the i. dimension 
L =base of array storage block 
n n 
address = € r,D, - iterate | 
i 
i=l i=l 


The values for D, through D-1 and {D's are stored in the array 
storage block as well as a negative number which represents the number 
of Pancrisione.: These values are used at compile time by procedures 
INSERT DATA and SUBSCRIPT to insert initial values into the subscripted 
variables. 

eC. Control of Simple Variables 

Procedures ENTER and ENTERI place the variable 

names and attributes inthe PRT. ENTER1 also calls procedure SET to 
determine the variable's type according to the standard FORTRAN rules. 


If the first letter of the variable is I1,J,K,L,M, or N then the variable 


is typed as an integer and requires one cell for storage. Otherwise, the 


S : 

The dimensions are stored in negative form due to the PDP-8 
machine instructions and the manner in which subscripting is done at 
execute time. 
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PDP-8 Memory Map 


{Dj 


_ - + Dimensions 
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variable is typed as a real and requires three cells. The sta: m 
for simple variables are Obtained irom the procedure GET VCak 
are called VCELLs. GET VCELL provides these Gemie iremuine top on 
the page currently being loaded with instructions. 

The procedure LOOKUP is used to locate a variable 
in the PRT. Entries to the hash field of the PRT are obtained from 
procedure HASH. Finally, COMMON CHECK relocates a variable within 
the PRT from a program variable cell to a common cell when the variable 
name is contained in a common statement. 

Gls The Referencing of Labels 

The beginning and end of each labeled statement are 
saved within the procedure FIND_LAB. Procedure SETLAB calls 
GET_VCELL and sets the returned VCELL so that the referenced label can 
be reset at the end of the program block. An error message will be 
printed if the referenced label is not located by the time the scanner 
reaches an END statement. 

e. The Assignment of Temporary Cells 

Temporary cells are located on page 0 between 
addresses Uo. and nid and are called TCELLs. Procedure GET _TCELL 
competes with PARMCELL for access to this area of the PDP-8 memory. 
Any overlap between TCELL and PARMCELL will require the FORTRAN 
Statement to be separated into two or more statements or the number of 


subprogram parameters to be reduced. All TCELLs become available for 


assignment at the beginning of each FORTRAN statement. 
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ae The Procedure for Code Emission 

Procedure STORE CODE inserts the PDP-8 instructions 
into the CODE array starting at address 202,. As the code generation 
sipproaches the VCELLs in use Om the Same page procedure AbyAliG em 
PAGE will emit a jump to the following page. ADVANCE_PAGE will also 
ensure that the Floating Point Package is exited prior to and reset after 
the jump. 

The procedure EMIT CHECK determines if the refer- 
enced expression must be indirectly addressed. A VCELL is used for 
indirect addressing if the constant or variable is assigned off the page 
on which instructions are currently being inserted. The requirement for 
indirect addressing is determined from CONSTANT1, LOC, or the absence 
of the variable in the VCELL_ADDRESS table. 

Procedure STORE CONSTANT obtains storage from 
GET_VCELL and inserts the constant into these cells. It also updates 
the CONSTANT1/CONSTANT2 table. 

Frequently addresses must be passed as parameters 
to one of the PDP-8 machine language subprograms. These addresses 
follow the jump instruction to the subprogram. Procedure EMIT ADDRESS 
ensures that the required addresses are loaded after the jump. 

The process of inserting of character strings into the 
CODE array is accomplished by procedure EMIT STRING. This procedure 


uses the procedure STORE _ASCIL CODE to convert the IBM EBCDIC 
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mm NTT 
{ 


character representation to ASCII code. A listing of the A 


characters available to FORTRAN/8 users is contained in Appendix 


C. FORTRAN/8 LISTINGS 

The listing produced by the FORTRAN/8 compiler includes each 
card image from the source deck and any error messages which occurred 
during compilation. Additions to this listing can be effected by the use 


of the control cards which are described in Appendix G. 
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IV... FORTRAN? S.OBIEGT MO DUP 


The generation of the object module (defined as the CODE array 
in FORTRAN/8) begins in the procedure INITIALIZATION. Berens entering 
page zero references however, the content of each address in the CODE 
array is set to zero. Therefore, PDP-8 users are assured that the content 
of each address in a subscripted variable is zero at execution time. 
PDP-8 machine language subprograms, which appear in the declarations 


of FORTRAN/8, are then loaded into the CODE array. 


A. PDP-8 INSTRUCTION SET 

Two types of een are available for the PDP-8: memory 
reference, and augmented. The memory reference instructions are used 
to store and retrieve information from core memory, while the augmented 
instructions accomplish specialized tasks. The operation code of both 
types is specified in the left most three bits (positions 0-2) of the 
twelve bit word. 

i. Memory Reference Instructions 

Memory reference instructions are designated by operation 


codes zero through five. These instructions use the right most seven 


a listing of the PDP-8 instructions used by FORTRAN/8 is 
contained in Appendix H. 
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bits (positions 5-11) as an address field and a direct r 
made to any location on the current page or page zero. If bit tnree 
contains a "1" then the address field refers to the current page, other- 
wise it refers to page zero. 

Ds Augmented Instructions 

There are two augmented instructions: input/output transfer 
(operation code six) and operate (operation code seven). Both augmented 
instructions can be microprogrammed to perform several sequential 
operations by the setting of bits three through eleven. Neither of these 
instructions accesses core memory. 

The input/output transfer instruction initiates the operation 
of peripheral equipment and effects information transfers between the 
arithmetic unit and an I/O device. 

Operate instructions are divided into Group | and Group 2. 
The first group is principally for clear, complement, rotate and increment 
operations. The presence of a "1" in bit three designates Group 2 


instructions which check the accumulator and perform skipping operations 


based on this check. 


B. PDP-8 SUBPROGRAMS 
Ten of the eleven subprograms loaded into the object module will 

7 
be covered in this section. The eleventh, the Floating Point Package 


and corelated Input/Output subprograms, are covered in [Ref. 5]. 


pendix I contains address sequential listings of the ten sub- 
programs fe 








li I/O Subprograms 

WRITE STRING emits a continuous strimg of ASCII characters 
to the teletype. These characters are read from the addresses following 
the jump subroutine instruction QMS). A return to the program is 
accomplished by reading a WEXT instruction. 

TAB returns the teletype carriage and then advances the 
carriage a number of spaces equal to the value found following the key- 
word TAB in the FORTRAN source deck. 

The transmission of integer numbers is handled in the 
INTEGER _ READ and INTEGER_WRITE subprograms. The argument for 
these subprograms is the address of the expression to be transferred. 
The Input/Output subprograms associated with the Floating Point Package 
and the floating point accumulator are used to complete the transfer. As 
a result, all numbers will be printed on the teletype in exponential form. 

Ze: Subscripts 

All execution time subscript calculations are handled in the 

ARRAY SUBSCRIPTOR subprogram. The subscripts for the desired 


variable are loaded into page zero addresses 0063 0065, prior to the 


8 
JMS instruction. The last subscript is always entered in 0063, and is 
negative if that variable is declared real. The ARRAY _SUBSCRIPTOR 
returns the calculated address. 
oe Arithmetic Operations 
MULTIPLY and DIVIDE are eee for integer multiplication 


and division operations. Both subprograms operate on the two addresses 
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following the JMS instruction and return the calculated + 
works on the principle of successive addition while DIVIDE works witu 
successive subtraction. 

EXPONENTIATION also operates on the two addresses 
following the JMS instruction. The first address is treated as the 
exponent and must refer to an integer expression. The second address 
is the number to be exponentiated and this address must refer to a real 
expression. The result is returned in the floating point accumulator. 

FLOAT converts an integer expression to a real expression 


and places the result in three TCELLs. 
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VS COMChUSIeiis 


The PDP-8 is an extremely versatile computer with considerable 
potential. It was found relatively easy to program and possesses a 
considerable inventory of usable instructions. 

Several FORTRAN source decks were tested on the FORTRAN/8 
compiler. The most comprehensive of these decks totaled sixty-three 
cards. This deck was compiled in approximately two seconds of CPU 
time. The object module (discounting page zero entries, PDP-8 machine 
language subroutines, and the storage area required for subscripted 
variables) required approximately twelve PDP-8 words for each source 
deck card. Based on this figure and the amount of usable core, itis 
estimated that the PDP-8 could handle a source deck exceeding 200 cards. 

Implementation of the FORTRAN/8 compiler at the Naval Postgraduate 
School completed the first of two phases to provide PDP-8 users with 
the capability to test FORTRAN programs. The second phase will consist 
of constructing a PDP-8 simulator on the IBM System 360. This simulator 
will accept the object module produced by FORTRAN/8 and provide users 
with a complete package for the testing and running of FORTRAN programs 


when the PDP-8 system is not available. 
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APPENDIX A. 
BNF FOR FORTRAN/8 
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APPENDIX C 


FORTRAN/8 PROCEDURE LISTING 


BROCEDURES 


ADVANCE_PAGE * 


AFLAG_ CHECK * 
COMMON_CHECK 
COMPILATION LOOP 
COMPUTE 

DUMP 

DUMPING 

DUMPIT 

EMIT ADDRESS * 
EMIT_CHECK * 
EMIT_STRING * 


Bele. 


EA ER | 


*Code emitting procedures 


CALLED BY 

GET _VCELL 
SETLAB 
STORE_CODE 
STORE_ASCII_CODE 
SYNTHESIZE 
SYNTHESIZE 
SYNTHESIZE 
MAIN_ PROCEDURE 
SCAN 

SYNTHESIZE 
DUMP 

PRINT SUMMARY 
SYNTHESIZE 
SYNTHESIZE 


SYNTHESIZE 


ENTER 
SYNTHESIZE 


SYNTHESIZE 
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PROCEDURES 


ERROR 


FIND LABEL 
FIND_ PROC 
GET_ACELL 
GET_CARD 
GET _PCELL 
eer TCELL 


emp VCELL 


HASH 


I FORMAT 
INITIALIZATION * 
INSERT_CHECK 


INSERT_DATA * 


Sie 


CALLED BY 


COMMON_CHECK 
COMPILATION LOOP 
COMPUTE 

EMIT STRING 
ENTER 

FIND LABEL 

GET _P@EEL. 

GET. nes, 
INSERT_CHECK 
REDUCE 

SCAN 

STACKING 
SYNTHESIZE 


SYNTHESIZE 
SYNTHESIZE 
SYNTHESIZE 

SCAN 

SET_PROC 
SYNTHESIZE 
EMIT_CHECK 
ENTER1 

SETLAB 

STORE CONSTANT 
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ENTER 

LOOKUP 
LIST_CARD 
MAIN _ PROCEDURE 
INSERT_DATA 
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EO OKU P 


MAIN PROCEDURE 


PR_OK 


PRINT DATE AND TIME 


PRINT_SUM MARY 


PRINT TIME 


READ _OCTAL 


RECOVER 


ot CE 


RIGHT CONFLICT 


SCAN 


SET 


pel LAB * 


SET PROC 


ae 


CALLE Dasy 


ERROR 
GET Gane 


COMMGNS CHECK 
DUMPING 

SY Nona 
Initial Call 
REDUGE 


INITIALIZATION 
PRINT SUMMARY 


PRINT_DATE AND TIME 
PRINT_SUMMARY 


DUMPING 
LIST CARD 
SYNTHESIZE 


REDUCE 
STACKING 


COMPILATION LOOP 
STACK _DUMP 


PR_OK 
RECOVER 


COMPILATION LOOP 
INITIALIZATION 
RECOVER 


ENTERI 
oOYNTHESIZE 


SYNTHESIZE 


SYNTHESIZE 
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PROCEDURES 
SRACKING 

STACK DUMP 
STORE _ASCII_CODE 


STORE_CODE * 


STORE CONSTANT * 
SUBSCRIPT 


PeeEoIZE * 
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CALLED IBY 


COMPILATION_LOOP 
STACKING 

EMIT STRING 
AFLAG_CHECK 
EMIT_CHECK 
SYNTHESIZE 
SYNTHESIZE 


INSERT_DATA 


REDUCE 
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Temporaries 
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w5 7730 Exponential Subprogram 


74 0000 
as 0000 Floating Point 0.0 


72 0000 


aS 0000 
62 7600 Subscript Subprogram 
61]; Registers for 

Floating Point 
40! Package 


7 1 Floating Pomme. 0 

70 

67 Divide Subprogram 

66 Multiply Subprogram 
65 

64 | For Subscripting Arrays 


3/ 556 Integer Read Subprogram 

36 6153.0 Integer Write Subprogram 

a 5514 Write String Subprogram 

34 5474 Tab Subprogram 

33 5435 Float Subprogram 

a2 Addresses for indirectly 
Addressing the 

20 FORTRAN subprograms 

fe Auto 


10 Indexing 


7 ( Floating Point Intrepter 
6 7400 Floating Point Input 

3 7200 Floating Point Output 

4 0001 Fis<ecae-Oimt st 

3 0002 Fixed Point 2 

eZ TIDE. Fixed Point -l 

Mmper or Program 

0 Interrupts 
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FOoO2 Subprogram 
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5600 Package 
Integer Read 
5563 Subprogram 
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5514 Subprogram 
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5474 Subprogram 
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Compiler 


ZZ 


Z0 1 Address of main program 
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APPENDIX E 





SSG 1G CUBE 

Character Code Character Code 
A S100 | 241 note 1 
B 302 3 242 note 2 
C Ss + 243 
D 304 S 244 
E SS % 245 
iF 306 & 246 
G SO 247 
H 30 ( 250 
I 3d ) 25 
J Cy, * Ze 
K Ss + 253 
le 314 ; 254 
M OO - 250 
N 316 ; 256 
O a7 ye 27 
Pe .. S20 : 22 
Q 71 : 215 
R B22 Ve. 274 
S 825 = 205 
iL 324 P 276 
U 325 a C7. 
V 326 @ 300 
W Bias 
X 550 Line Feed Ze 
iy Soll Return Zaes 
7, Saiz Space 240 
0 260 
l Z61 Note 1: explanation mark available 
2 Zig as "a" (11-7-8 Punch) 
3 263 
4 264 Note 2: double quote available 
5 Z65 come 2-/-0 Pilmen) 
6 266 
Ti 267 
8 270 
9 De 
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APPENDIX G 
FORTRAN/8 LISTING CONTROLS 

The following is a listing of control toggles which allow the user 
to print the code array and FORTRAN/8 tables during the listing. 

Each command must appear ona separate card. A dollar sign (S) 
must be punched in column one of the card and the control character 
must follow in column two. With the exception of control toggle L, all 
toggles are initially off. The first appearance of a control card 
complements the toggle (if off then it is turned On) . oucceeding 


appearances of the same control card again complements the toggle. 


Character Action 
oe causes the code generated by each source 
deck statement to follow a listing of that 
statement 
Ip causes the source deck statement to be listed 


along with the card count 


M causes the source deck card to be listed 
without the card count 


FP causes the BNF productions to be listed while 
the source deck statement is being parsed. 
It should be noted that the statement will 
follow the productions. 


R upon completion of code generation the PDP-8 
memory map from 0g to the page (current page) 
on which code generation ceased along with 
all addresses not equal to zero from the current 
page to address 54 73. will be listed 


114 








Character AGTion 


> causes the PRT to be listed after each 
program block 


il causes the PTABLE to be printed at the end 
Gi Comollation 


mS 





Mnemonic 


AND 
TAD 
naz, 
DCA 
JMS 
JMP 
1OT 
OPR 


OP 
CLA 
CLL 
CMA 
CML 
RAR 


RTR 
RTL 
IAC 


SMA 
SZA 
SPA 
SNA 
ONL 
oZL 
SP 
OSR 
Een 
CLA 


APPENDIX H 


PDP=6 No RRS Misr 


Code 


Operation 


BASIC INSTRUCTIONS 


0000 
1000 
2000 
3000 
4000 
9000 
6000 
7000 


7000 
7200 
7100 
7040 
7020 
One) 
7004 
7012 
7006 
7001 


7500 
7440 
io 
7450 
7420 
7430 
7410 
7404 
7402 
7600 


logical AND 

2's complement add 
increment and skip if zero 
deposit and clear AC 
jump to subroutine 

jump 

in/out transfer 

operate 


GROUP 1 OPERATE MICROINSTRUCTIONS 


no operation 

clear AC 

clear link 

complement AC 

complement link 

rotate AC and link right one 
rotate AC and link left one 
rotate AC and link right two 
rotate AC and link left two 
increment AC 


GROWP Z-OPERATE MIGR@INS RUG HO@NS 


skip on minus AC 

Ship tonec cron] 

Skipsenm plus AG 

skip on non-zero AC 

skip on non-zero link 

skip on zero link 

skip unconditionally 

inclusive OR, switch register with AC 
halts the program . 
clear AC 
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Mnemonic 


CIA 

LAS 

eau 

enK 
CiAcLL 
ee AC 
CLA CMA 
CLL RAR 
CLL RAL 
1.) RIL. 
CLL RTR. 
SZA CLA 
SZA SNL 
SNA CLA 
SMA CLA 
SMA SZA 
SMA SNL 
SPA SNA 
SPA SZL 


BeAeCLA - 


SONA SZL 


NOP 

CLA 

MOL 
MQA 
CAM 

SWP 

ACL 

CLA ,SWP 


Code 


7041 
7604 
7120 
7204 
7300 
ious 
7240 
7 AQ 
7104 
7106 
TVA? 
7640 
7460 
Z5a0 
7700 
7540 
1520 
oo 
ool 
7750 
7470 


MQ 


7401 
7601 
7421 
7k 
(iene 
Poet 
i 70N 
a 


Operation 


COMBINED OPERATE MICROINSTRUCTIONS 


complement and increment AC 
load AC with switch register 
set link (to 1) 

get link pur linminAGebitn) 
clear AC and link 


set AC = 1 


set AC = -1l 

shift positive number one right 
shift positive number one left 
clear link, rotate 2 left 

clear link, rotate 2 right 


skip 
Skip 
Skip 
skip 
skip 
skip 
skip 
Skip 
skip 
skip 


if AC 
if AC 
if AG 


= 0, then clear AC 
= 0 or link =1, or both 
#0, then clear AC 


if AC < QO, then clear AC 


Tie 
if AC 
if AC 
if AC 
if AC 
if AC 


<=0 

—0FOtelinke ise BOreoOtnd 
> 0 

?= 0, and if link is 0 
> = 0, then clear AC 
=O and tink = 0 


MICROINSTRUCTIONS 


no operation 
Gleqr ne 
load MQ from AC then clear AC 
inclusive OR the MO with the AC 
clear AC and MQ 

swap AC and MQ 

load MQ into AC 

load AC from MQ then clear MQ 


Jeliey, 








Mnemonic 


KCF 


KSF 
BEC 


KRS 
KIE 


Ber 
ior 
cer 
@ 


SPI 
TS 


FADD 
hous 
PP y 
eet 
ets T 
Er u T 
FNOR 
EXT 
SQR 

SQRT 


WEXT 


Code 


Operation 


TE LEEY PE abo ARI ie Abi 


6030 


6031 
B03IZ 


6034 
6035 


6036 


6040 
6041 
6042 
6044 


6045 
6046 


FLOATING POINT 


1000 
2000 
3000 
4000 
5000 
6000 
7000 
0000 
0001 
0002 


clear keyboard/reader flag, 
do not start reader 
skip if keyboard/reader flag = 1 
clear AC and keyboard/reader tac, 
set reader run 
read keyboard/reader buffer static 
AC 11 to keyboard/reader 
interrupt enable F.F. 
clear AC, read keyboard buffer, 
clear keyboard flags 


TELETYPE TELEPRINTER/PUNCH 


set teleprinter/punch flag 

skip if teleprinter/punch flag = 1 

clear teleprinter/punch flag 

load teleprinter/punch buffer 
select and print 

skip if teletype interrupt 

load teleprinter/punch buffer, 
select and print and clear 
teleprinter/punch flag 


INSTRUCTIONS 


add to floating point AC 
subtract from floating point AC 
multiply floating point AC by 
divide floating point AC by 
load floating point AC by 
store floating point AC by 
normalize floating point AC by 
floating point exit 

floating point square 

floating point square root 


PSEUDO. INSTRUCTION 


0000 


WRITE STRING subroutine exit 
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FLOAT SUBPROGRAM 


Address 


59435 
5436 
5437 
5440 
5441 
5442 
5443 
5444 
5445 
9446 
5447 
9450 
9451 
5452 
po 3 
9454 
9455 
9456 
9457 
5460 
5461 
5462 
5463 
9464 
9465 
5466 
5467 
5470 
5471 
5472 
5473 


Code 


0000 
7100 
7500 
5243 
7 EZO 
VSGZ 
3046 
7300 
3044 
7204 
ow) 
IZ 
LOZ 
7040 
7421 
1046 
7450 
Sao 
2044 
ZOTD 
SZo0 
1046 
od) 
a2 oy 
7004 
9205 
7010 
Sit 
3045 
3046 
O20 


APPENDIX I 


Label 


Ea iey 


Py 


PDP-8 MACHINE LANGUAGE SUBPROGRAMS 


Mnemonic Description 


CALs 
SMA 
flv 
Snr 
AND 
DCA 46 
GEC Ly 
DCA 44 
GLK 
SNA CLA 
fleets 
TAD 
CMA 
MOL 
TAD 46 
SNA 
JMP. +4 
ISZ 44 
RAR 
JMP. -4 
TAD 46 
SPA 
vie esas 
RAL 
JMP. -3 
RAR 
MQA 
DCA 45 
DCA 46 
MPa ENTRY 


° 








TAB SUBPROGRAM 


Address 


9474 
94795 
9476 
9477 
9900 
9501 
9502 
9503 
9504 
o.0'9 
9506 
SSO 
Sol0 
soll 
sol 2 
sol3 


Code 





0000 
1674 
30.56 
2274 
44395 
OZ > 
0000 
Los 
7700 
9674 
4435 
0240 
0000 
Zones 
SoS 
0000 


Label 


Je IN DU) ae 


WRITE. STRING SUBPROGRAM 


Address 


9514 
Solo 
5016 
Son / 
502 0 
SSxael 
oe 2 
so23 
9924 
S20 
3) Ale 
ao / 


Code 


0000 
7300 
6046 
1714 
2314 
7450 
9714 
6041 
Jo 
6046 
7300 
Soe 


Label 


ENGRY; 


AO 


Mnemonic Deserigiiien 


TAD aseN TRY 
DCA A 
IsZ ENWRY 
[NiSsiss 

/return 
WEE /exit 
TADA 
Sie Ls 
Viet ENTRY 
Pivioee 

/space 
WEXT J exit 
ISZ A 
JMP. -7 


Mnemonic Description 


Cie GEL 
ae 

TAD I ENTRY 
ISZ ENTRY 
SNA 

JMP I ENTRY 
Si 

JMP. -1 
ges 
ClLAeinn 
JMP. -8 





INTEGER WRITE SUBPROGRAM 


Address 


6530 
Boo | 
5 So 
S500 
9534 
SO ois 
Boo 0 
poo / 
9540 
5541 
5942 
9543 
5544 
9945 
9546 
5547 
So) 
Soon 
Sac 
D3 
9994 
9900 
5300 
so / 
5560 
So | 
Do02 


Code 


0000 
3045 
1045 
7700 
9342 
1045 
7040 
1004 
3045 
1362 
7421 
3046 
3044 
1045 
7010 
2044 
7440 
5346 
1045 
7004 
7300 
oo 
7010 
Foo 
3045 
a7 30 
4000 


Label 


ENTRY, 


ee 


Mnemonic Description 


DCA 495 
The 5 
SMA CLA 
(VEE as 
TAD 45 
CMA 
TAD 4 
DCA 45 
TAD A 
MOL 
DCA 46 
DCA 44 
TAD 45 
RAR 
ISZ 44 
SZA 
JMP. =-3 
TAD 45 
eee 
SMA 
JMP. -2 
RAR 
MQA 
pele 
{MiP een PRY 
/mask 





INTEGER READ SUBPROGRAM 


Address 


9963 
5964 
Se 
5900 
5.07 
5070 
5o:/ 1 
572 
57/3 
9574 
Bo 
m7 0 
gol / 


Code 


0000 
1044 
vee 
7700 
Soe 
1045 
at 
3045 
2044 
9364 
1045 
5763 
7ISS 


Label 


Pe 


A, 


ARRAY _SUBSCRIPTOR SUBPROGRAM 


Address 


7600 
7601 
7602 
Zo 3 
7604 
7OUS 
7606 
7607 
7610 
ol.) 
7612 
meals 
7614 
oles 
7616 
ol 7 
ioc 0 
72 | 
Poe 2 
oS 
7624 
eS 
7626 


Code 


0000 
1600 
S307 
2200 
L757 
3360 
Coot, 
1063 
7500 
oe 
7040 
3356 
ieee 
L336 
Rao 
3350 
23960 
W226 
524] 
2360 
Eo? 
Sool 
Zor oe 


Label 


ENTRY, 


2 


Mnemonic Description 


TAD 44 
TAD A 
SMA CLA 
piv a6 
TAD 45 
CLL RAR 
DCA 45 
ISZ 44 
(NIE es 
TAD 495 
JMP 1 ENTRY 


-ll 
/ 8 


Mnemonic Description 


TAD I ENTRY 
DCA BASE 
ISZ ENTRY 
TAD I BASE 
DCA DIM 
ISZ BASE 
TAD RN 
SMA 

JMP 

CMA 

DCA CALC 
PAD ue 
TAD CALC 
PAweeanG 
Dem eALe 
ISZ DIM 
JMP 

JMP . 

ISZ DIM 
TAD I BASE 
DCA DI 
ISZ BASE 








ARRAY _SUBSCRIPTOR SUBPROGRAM (Continued) 


Address 


7627 
7630 
mos 1 
7632 
633 
7634 
7635 
7530 
os 7 
7640 
7641 
7642 
7643 
7644 
7645 
7646 
7647 
7650 
7a 


i790 
ye 7 
7760 
7 Tee 
ae 2 


MULTIPLY SUBPROGRAM 


Address 


oo 2 
Goo 3 
7694 
OO 
7656 
Los / 
7660 
7661 
7662 
7663 
7664 


Code 


1063 
7040 
1004 
38 6z 
1362 
2362 
5255 
LSiaie 
5300 
S220 
ZO 
3327 
Peo 
7040 
Pees 
Loo 7 
PS oi 
5200 
0000 


0000 
0000 
0000 
0000 
0000 


Code 


0000 
7300 
1652 
3356 
E710 
Je 
Cee 
too 
3307 
Peal 
7040 


Label 


CALC; 


BASE, 
DIM, 
iB 


Roy 


Label 


Ea 


t23 


Mnemonic Description 


Te 
CMA 

TAD 

DCA RI 
TAD RI 

ISZ RI 

JMP 
TADEeAIKe 
DCM Che 
JMP 

TAD 

DCA 

TAD I BASE 
CMA 

TAD 

TAD BASE 
Aone 
JMP I ENTRY 
NOP 


Mnemonic Description 


CEA GLE 

TAD IENTRY /Multipler Address 
Deze 

TADIA 

DCA A 

ISZ ENTRY 

TAD I ENTRY /Multiplicand Address 
DCA B 

TAD’ B 

CMA 








MULTIPLY SUBPROGRAM (Continued) 


Address 


7665 
7666 
7667 
7670 
707 | 
7672 
ASTES 


7750 
ys] 


DIVIDE SUBPROGRAM 


Address 


7674 
OTS 
7676 
7677 
7700 
7701 
7702 
7703 
7704 
7705 
7706 
a 7 
0 
fag A | 
eA 2 
me\3 
7714 
G75 
7716 
a] 
tae 0 
aS 
Ge 2 
era 
7724 
L729 


Code 


3007 
Zee 
2 Sou 
S272 
so 
0 
I207 


0000 
0000 


Code 


0000 
7300 
1674 
oo 
oe 
S300 
2274 
1674 
2274 
ao 
io 
7040 
1004 
7440 
9314 
7402 
3307 
3360 
Tree 
oto 
2300 
7540 
oo 27 
7500 
3020 
1002 


Label 


Label 


EN ERG 
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Mnemonic Description 


DCA B 
ISZ ENTRY 
ISZ B 

JMP. +2 
JMP I ENTRY 
TAD A 

JMP. -4 


Mnemonic Description 


GIWS IGIEIE 

TAD IENTRY /Dividend Address 
DCA A 

TADIA 

DCA A 

POZA eIN TE RY 

TAD UeHNERY 9/7 Dinicer Ac dnecc 
lS Zee yr 

DCA EB 

ee els 

CMA 

TAD 4 

SZA 

JMP. +2 

HLT /Divide by Zero? 
IDs 18 

IDI (E 

TAD A 

TAD B 

loae 

SMA SZA 

JMP. -3 

SMA 

\Vir Ss +2 

LA 2 








DIVIDE SUBPROGRAM (Continued) 


Address 


7720 
ay 


27 50 
a7 
7760 


Code 


1360 
9674 


0000 
0000 
0000 


Label 


EXPONENTIATION SUBPROGRAM 


Address 


Va 3 0 
731 
PSL 
TSS 
hoo 
35 
7739 
13 / 
7740 
7741 
7742 
7743 
7744 


7745 
7746 
7747 
ee 
ay) | 
aS 2 
WETS 3 
7754 
Wao o 
War © 
7797 
7760 
7 1 


Code 


0000 
7300 
1730 
3356 
E750 
7040 
1004 
3390 
2550 
1730 
So, 
Za) 
4407 


So 
63a)/ 
0000 
4407 
3357 
0000 
20 
580 
9730 
0000 
0000 
0000 
0000 


Label 


Fee, 


WAS 


Mnemonic Description 


TPADee 
JMP Tea 


Minremonic Description 


ClEALeruE 

TAD I ENTRY 

DGAA 

TADIA 

CMA 

TAD 4 

TADA 

ISZ ENTRY 

TAD I ENTRY 

DCA B 

ISZ ENTRY 

JMS INTREPTER /Floating Point 
Package 

FGET IB 

FPUT B 

FEOuw 

JMS INTREPTER 

F MPY B 

een 

ISZ A 

JMP. -4 

JMP I ENTRY 
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